home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
util
/
misc
/
VMM_V3_1.lha
/
VMM
/
InstallVMM
/
Dansk
next >
Wrap
Text File
|
1995-05-23
|
14KB
|
414 lines
; VMM Installer script by Martin Apel
; Installation script for VMM 3.1
; Danish translation by Michael Berg (mberg@scala.ping.dk, 2:238/24.28)
(set @app-name "VMM")
(welcome " Velkommen til VMM installationen\n\n"
" Virtuel Hukommelse for Amigaer med\n"
" 68030, 68040 eller 68020+68851\n\n"
" Copyright 1993-95 af Martin Apel\n\n"
"Novice installerer alt pånær udviklerfilerne.\n"
"Advanced installerer alt uden bekræftelse.\n"
"Expert installerer alt med bekræftelse af alle\n"
" handlinger.\n")
(if (= 0 @user-level) ; then
(set install_level %000111)
;else
(set install_level (askoptions (prompt "Hvad ønsker du at installere ?")
(help @askoptions-help)
(choices "VMM" "Ikoner" "Dokumenter" "Udviklerfiler" "Værktøjer" "Rexx programmer")))
)
(set def_help "\n\nDu kan finde mere hjælp i \"VMM.guide\"\n\n")
(set my_level @user-level)
(user 2)
(set vmmdest
;get destination directory for "VMM"
(askdir (prompt "Vælg det katalog som du ønsker at installere VMM programfil og værktøjer i.")
(help "Dette bør være et katalog som er nemt tilgængeligt enten"
"fra Workbench eller CLI/Shell." def_help
@askdir-help)
(default @default-dest)
(disk)
)
)
(user my_level)
(set copy_vmm (BITAND %000001 install_level))
(set copy_icons (BITAND %000010 install_level))
(set copy_docs (BITAND %000100 install_level))
(set copy_dev (BITAND %001000 install_level))
(set copy_tools (BITAND %010000 install_level))
(set copy_rexx (BITAND %100000 install_level))
; Copy VMM files
(if copy_vmm
(
(set @default-dest vmmdest)
(set vmmtacked (tackon vmmdest "VMM"))
; ask, if we want to overwrite the old VMM if it exists
(set overwrite 1)
(if (exists "L:VMM-Handler")
(
(set old_version (getversion "l:VMM-Handler"))
(set old_ver (/ old_version 65536))
(set old_rev (- old_version (* old_ver 65536)))
(set new_version (getversion "/l/VMM-Handler_4K"))
(set new_ver (/ new_version 65536))
(set new_rev (- new_version (* new_ver 65536)))
(set overwrite (askbool (prompt "\nDu har allerede VMM "
old_ver "." old_rev " installeret"
".\nØnsker du at overskrive den med VMM "
new_ver "." new_rev " ?\n")
(help def_help @askbool-help)
(default 1)
(choices "Ja" "Nej"))
)
)
)
(if overwrite
(
; detect the pagesize (4K or 8K)
(set pagesize (run "/tools/ShowPageSize"))
(select pagesize
(abort "Intern fejl i Installer script")
((set info_string "En sidestørrelse på 4K er brugbart på dit system")
(set default_choice 0))
((set info_string "En sidestørrelse på 8K er brugbart på dit system")
(set default_choice 1))
((set info_string "Sidestørrelser på enten 4K eller 8K er brugbare på dit system")
(set default_choice 0))
)
(set my_choice (askchoice (prompt "\nVælg venligst sidestørrelsen:\n\n"
info_string ".\n")
(help def_help @askchoice-help)
(choices "4K sidestørrelse" "8K sidestørrelse")
(default default_choice))
)
(select my_choice
(set sizestr "4K")
(set sizestr "8K")
)
; copy the new VMM file to the destination directory
(if copy_icons
; then
(copyfiles (prompt ("\nKopierer VMM til %s." vmmdest))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/")
(choices "VMM")
(dest vmmdest)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopierer VMM til %s." vmmdest))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/")
(choices "VMM")
(dest vmmdest)
(confirm)
)
)
; copy the catalog for VMM
(copyfiles (prompt "\nKopierer VMM.catalog til LOCALE:catalogs/dansk.")
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/catalogs/dansk/VMM.catalog")
(dest "LOCALE:catalogs/dansk")
(confirm)
)
; copy the new VMM-Handler file to l: and rename it as "VMM-Handler"
(set handler_name (cat "/l/VMM-Handler_" sizestr))
(copyfiles (prompt "\nKopierer VMM-Handler til l:.")
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source handler_name)
(dest "l:")
(newname "VMM-Handler")
(confirm)
)
; copy the catalog for the VMM-handler
(copyfiles (prompt "\nKopierer VMM-Handler.catalog til LOCALE:catalogs/dansk.")
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/catalogs/dansk/VMM-Handler.catalog")
(dest "LOCALE:catalogs/dansk")
(confirm)
)
)
)
; ask, if we want to overwrite the old preferences file
; default: do overwrite preferences file
(set overwrite 1)
(if (exists "envarc:VMM.prefs")
(if (= 0 (askbool (prompt "\nDu har allerede en præferencefil installeret.\nØnsker du at overskrive den ?\n\n")
(help "Hvis du ikke ønsker at overskrive præferencefilen vil den blive konverteret i det næste trin" @askbool-help)
(default 0)
(choices "Ja" "Nej")))
(set overwrite 0)
)
)
(if overwrite
(
; copy the new preferences file to env: and envarc:
(copyfiles (prompt ("\nKopierer VMM.prefs til ENV:\n"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/env/VMM.prefs")
(dest "ENV:")
(confirm)
)
(copyfiles (prompt ("\nKopierer VMM.prefs til ENVARC:\n"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/env/VMM.prefs")
(dest "ENVARC:")
(confirm)
)
)
; else
(if (= 1 (askbool (prompt "Præferencefilformatet er blevet ændret siden V2.1\nØnsker du at få filen konverteret?"
(help def_help @askbool-help)
(default 1)
(choices "Ja" "Nej"))))
(run "/tools/ConvVMMCfg")
)
)
)
)
; Copy docs
(if copy_docs
(
;get destination directory for "VMM.guide"
(set doc_dir (tackon vmmdest "doc"))
(if (AND (= 0 @user-level) (NOT (exists doc_dir)))
; then
(makedir doc_dir (infos))
)
(set vmmdocs
(askdir (prompt "Vælg det katalog hvori du ønsker at installere\ndokumenter og guides.")
(help "Dette bør være det katalog hvori du normalt installerer guides.\n\n"
def_help @askdir-help)
(default doc_dir)
(newpath)
(disk)
)
)
(if copy_dev
(if copy_icons
; then
(copyfiles (prompt ("\nKopierer dokumenter..."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
(dest vmmdocs)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopierer docs..."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
(dest vmmdocs)
(confirm)
)
)
; else
(if copy_icons
; then
(copyfiles (prompt ("\nKopierer VMM.guide til " vmmdocs "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
(dest vmmdocs)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopierer VMM.guide til " vmmdocs "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
(dest vmmdocs)
(confirm)
)
)
)
)
)
; Copy developer files
(if copy_dev
(
(copylib (prompt ("\nKopierer VMM.library til libs:."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/libs/VMM.library")
(dest "libs:")
(confirm)
)
(if (exists ("fd:") (noreq))
; then
(set fd_dir "fd:")
; else
(set fd_dir
(askdir (prompt "Vælg katalog til fd fil.")
(help def_help @askdir-help)
(default "SYS:")
(disk)
)
)
)
(if (exists ("include:") (noreq))
; then
(set inc_dir "include:")
; else
(set inc_dir
(askdir (prompt "Vælg katalog til include filer.")
(help def_help @askdir-help)
(default "SYS:")
(disk)
)
)
)
(if (exists ("lib:") (noreq))
; then
(set lib_dir "lib:")
; else
(set lib_dir
(askdir (prompt "Vælg kataloger til lib fil.")
(help def_help @askdir-help)
(default "SYS:")
(disk)
)
)
)
(copyfiles (prompt ("\nKopierer VMM_lib.fd til " fd_dir "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/fd")
(choices "VMM_lib.fd")
(dest fd_dir)
(confirm)
)
(copyfiles (prompt ("\nKopierer VMM_stat.h til " inc_dir "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/include")
(choices "VMM_Stat.h")
(dest inc_dir)
(confirm)
)
(copyfiles (prompt ("\nKopierer VMM_lib.lib til " lib_dir "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/lib")
(choices "VMM_lib.lib")
(dest lib_dir)
(confirm)
)
)
)
; Copy tools
(if copy_tools
(
if copy_icons
; then
(copyfiles (prompt ("\nKopierer værktøjer til " vmmdest "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/tools")
(choices "VMMStat" "VMMUsage" "VMMUsageCLI")
(dest vmmdest)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopierer værktøjer til " vmmdest "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/tools")
(choices "VMMStat" "VMMUsage" "VMMUsageCLI")
(dest vmmdest)
(confirm)
)
)
)
;
; Copy ARexx scripts
(if copy_rexx
(copyfiles (prompt ("\nKopierer ARexx scripts til REXX:"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/rexx")
(choices "stat_on.vmm" "stat_off.vmm" "show.vmm" "hide.vmm")
(dest "REXX:")
(confirm)
)
)